home *** CD-ROM | disk | FTP | other *** search
/ Time Warp / Time Warp.iso / mac / Time Warp / Time Warp.DXR / Shared_62.ls < prev    next >
Encoding:
Text File  |  1997-05-23  |  546 b   |  25 lines
  1. on exitFrame
  2.   global end, monitor
  3.   if monitor = 0 then
  4.     go(the frame)
  5.   else
  6.     if monitor = 1 then
  7.       if the movieTime of sprite 15 < end then
  8.         go(the frame)
  9.       else
  10.         set the locV of sprite 15 to 1000
  11.         set the locH of sprite 15 to -1000
  12.         puppetTransition(3)
  13.         updateStage()
  14.         puppetSprite(15, 0)
  15.         set monitor to 0
  16.         if soundBusy(1) = 0 then
  17.           puppetSound("SHIP_INTR11.AIF")
  18.           updateStage()
  19.         end if
  20.         go(the frame)
  21.       end if
  22.     end if
  23.   end if
  24. end
  25.